home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
memory
/
emsaw41s.zip
/
TEST1F.FOR
< prev
next >
Wrap
Text File
|
1994-06-26
|
769b
|
27 lines
C Example of the program in FORTRAN:
C Compiler settings: usually none.
C Use segemsp.obj for linking.
C (See note 5)
C
INTEGER*4 TOTSIZ, AVSIZ, A, INDEX, BITNU, LENGTH, VAL1, VAL2
INTEGER*4 GETF, GETINT
CALL EMINIT
CALL SIZAR (TOTSIZ, AVSIZ)
WRITE(*,1000)TOTSIZ, AVSIZ
CALL NEWAR (A, AVSIZ)
INDEX=AVSIZ
VAL1=99999999
CALL SETINT (A, INDEX, VAL1)
VAL2=GETINT (A, INDEX)
WRITE(*,1000) VAL1, VAL2
INDEX=AVSIZ-2
BITNU=7
LENGTH=30
CALL SETF (A, INDEX, BITNU, LENGTH, VAL1)
VAL2=GETF(A, INDEX, BITNU, LENGTH)
WRITE(*,1000) VAL1, VAL2
CALL FREEAR (A)
WRITE(*,1000) TOTSIZ, AVSIZ
1000 FORMAT(1X,2(I8,6X))
END